home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Gold Medal Software 2
/
Gold Medal Software Volume 2 (Gold Medal) (1994).iso
/
windows
/
utils
/
4d_load.arj
/
4D.BAT
< prev
next >
Wrap
DOS Batch File
|
1993-06-15
|
916b
|
44 lines
@echo off
if %1.==FromWin. goto LoadWin
if "%@eval[2+2]" == "4" SetErLev 0
if not "%@eval[2+2]" == "4" SetErLev 1
if not ErrorLevel 1 goto Loaded
goto Load
:Loaded
echo Current shell is 4DOS.
ready Do you want to invoke a secondary 4DOS shell (Y/N)? \060Y\062: /a:nNyY /a:13 /a:32
if not ErrorLevel 3 goto END
goto Load
:Load
if %1.==FromWin. goto LoadWin
echo Loading 4DOS ...
c:\4dos\4dos %1 %2 %3 %4 %5 %6 %7 %8 %9
4dosOn
if ErrorLevel 255 goto 1st
if not "%@eval[2+2]" == "4" goto 1st
echo 4Dos Shell %[_Shell]
goto END
:LoadWin
MODE co80
echo.
echo.
echo 4DOS/Windows shell ...
fast
c:\4dos\4dos
echo 4Dos - returning to Windows ...
Ready Close 4DOS task (Y/N)? \060Y\062: /a:nNyY /a:13 /a:32
if not ErrorLevel 3 4d FromWin
goto END
:1st
echo Exited to %comspec%
Ready Reload 4DOS shell (Y/N)? \060Y\062: /a:nNyY /a:13 /a:32
if not ErrorLevel 3 goto END
4d
:END